<%@ Language=VBScript %>
<%' (c) Copyright 1999-2004 PaperCut Software Pty. Ltd. %>
<%=GetText("Login")%>
<%
If Not gblnAllowAnonymousAccess Then
WriteErrorMessage GetText("AnonAccessDisabled")
Response.End
End If
Dim strUsername
strUsername = Trim(Request("strUsername"))
If strUsername <> "" Then
strUsername = Trim(Request("strUsername"))
Session("AnonUsername") = ""
' Check that it's a valid user
Dim objPCWeb
Set objPCWeb = Server.CreateObject("PCWebAdmin.PCWebUsers")
If objPCWeb.Error Then
WriteErrorMessage objPCWeb.ErrorDescription
Else
objPCWeb.SeekUser(strUsername)
If (UCase(objPCWeb.UserName) <> UCase(strUsername)) Then
' Can't find the user
WriteErrorMessage GetTextReplace("ErrorCantFindUser", Array(strUsername))
Else
' Valid user, so log them in
Session("AnonUsername") = strUsername
' Send them back to the default page
Response.Redirect "default.asp"
End If
End If
Set objPCWeb = Nothing
End If
%>
<%=GetText("LoginInstructions")%>